home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pcspell.arc / PC-SPELL.SOR < prev    next >
Encoding:
Text File  |  1984-10-28  |  768 b   |  18 lines
  1. 5 DEFINT A-Z
  2. 10 REM sort routine but first clean up old stacks
  3. 20 COUNT=0:N=CINT(W!):D=2^INT(LOG(N)/LOG(2))-1:LOCATE 10,15:PRINT "Start:";TIME$;:LOCATE 12,15:PRINT "Predicted time of sort";INT(.043943*W!^1.26);"seconds."
  4. 30 D=2^INT(LOG(N)/LOG(2))-1
  5. 50 FOR I=1 TO N-D
  6. 60 FOR J=I TO 1 STEP -D
  7. 70 IF WORD$(J)<=WORD$(J+D) THEN 100
  8. 80 SWAP WORD$(J),WORD$(J+D)
  9. 90 NEXT J
  10. 100 NEXT I
  11. 110 D=INT(D/2):LOCATE 1,1:PRINT TIME$;:IF D>0 THEN 50
  12. 150 LOCATE 25,24:PRINT "Stop:";TIME$
  13. 160 GOSUB 1030
  14. 170 COMMON W!,DDISK$,WDISK$:CHAIN DDISK$+"pc-spell.uni"
  15. 1030 OPEN DDISK$+"qwertyui" FOR OUTPUT AS #1
  16. 1040 FOR X=1 TO W!:PRINT #1,WORD$(X):NEXT X
  17. 1050 RESET:RETURN
  18.